home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 22 / Amiga Format AFCD22 (Jan 1998, Issue 106).iso / -seriously_amiga- / shareware / workbench / -dopus- / pch56x / opus_patch56x-562 < prev    next >
Text File  |  1997-11-05  |  7KB  |  253 lines
  1. ; Opus_Patch56x-562
  2. ; Installer script to update Directory Opus Magellan version 5.61 to 5.62 
  3. ;
  4. ; Directory Opus Update Version $VER: Opus_Patch56x-562  (23.07.97)
  5. ; script version 2 fix problem with disk info module and storage dir
  6. ; script version 3 make one combined patch for WoA and 5.61 versions
  7. ; script version 4 added @default_dest for Neil annd Thomas
  8.  
  9. ; COPYRIGHT ©1997 GP SOFTWARE, AUSTRALIA
  10.  
  11.  
  12. (complete 0)
  13.  
  14. (procedure clear_assigns
  15.  
  16.     (makeassign "DOPNEW")
  17.     (makeassign "PCH")
  18.     (makeassign "DOPOLD")
  19. )
  20.  
  21. (procedure signal_opus
  22.  
  23.     (set #Sigs (tackon #SRC "dopusmsg"))
  24.     (if (exists #Sigs (noreq))
  25.         (run (cat #Sigs " DOPUS.1 \"command set notify off\""))
  26.     )
  27. )
  28.  
  29. (procedure make_newfiles ; (#EXT) requires #EXT to be set before call
  30.  
  31.         (working "Updating modules/ftp.module")
  32.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/ftp.module -pPCH:ftp."#EXT" DOPOLD:modules/ftp.module"))
  33.         (working "Updating modules/configopus.module")
  34.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/configopus.module -pPCH:configopus."#EXT" DOPOLD:modules/configopus.module"))
  35.         (working "Updating modules/cleanup.module")
  36.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/cleanup.module -pPCH:cleanup."#EXT" DOPOLD:modules/cleanup.module"))
  37.         (working "Updating modules/about.module")
  38.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/about.module -pPCH:about."#EXT" DOPOLD:modules/about.module"))
  39.         (working "Updating modules/show.module")
  40.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/show.module -pPCH:show."#EXT" DOPOLD:modules/show.module"))
  41.         (working "Updating modules/read.module")
  42.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/read.module -pPCH:read."#EXT" DOPOLD:modules/read.module"))
  43.         (working "Updating modules/print.module")
  44.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/print.module -pPCH:print."#EXT" DOPOLD:modules/print.module"))
  45.         (working "Updating modules/play.module")
  46.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/play.module -pPCH:play."#EXT" DOPOLD:modules/play.module"))
  47.         (working "Updating modules/misc.module")
  48.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/misc.module -pPCH:misc."#EXT" DOPOLD:modules/misc.module"))
  49.         (working "Updating modules/listerformat.module")
  50.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/listerformat.module -pPCH:listerformat."#EXT" DOPOLD:modules/listerformat.module"))
  51.         (working "Updating modules/join.module")
  52.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/join.module -pPCH:join."#EXT" DOPOLD:modules/join.module"))
  53.         (working "Updating modules/icon.module")
  54.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/icon.module -pPCH:icon."#EXT" DOPOLD:modules/icon.module"))
  55.         (working "Updating modules/format.module")
  56.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/format.module -pPCH:format."#EXT" DOPOLD:modules/format.module"))
  57.         (working "Updating modules/filetype.module")
  58.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/filetype.module -pPCH:filetype."#EXT" DOPOLD:modules/filetype.module"))
  59.  
  60.         (working "Updating modules/diskcopy.module")
  61.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/diskcopy.module -pPCH:diskcopy."#EXT" DOPOLD:modules/diskcopy.module"))
  62.         (working "Updating libs/dopus5.library")
  63.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:libs/dopus5.library -pPCH:dopuslib."#EXT" DOPOLD:libs/dopus5.library"))
  64.         (working "Updating help/DOpus5.guide")
  65.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:help/DOpus5.guide -pPCH:helpguide."#EXT" DOPOLD:help/DOpus5.guide"))
  66.         (working "Updating DirectoryOpus")
  67.         (run (cat (tackon #SRC "spatch") " -oDOPNEW:DirectoryOpus -pPCH:dopus."#EXT" DOPOLD:DirectoryOpus"))
  68.  
  69.         (copyfiles (source (cat "PCH:loaddb." #EXT)) (dest "DOPNEW:c") (newname "LoadDB"))
  70.         (copyfiles (source (cat "PCH:DOpusRT5." #EXT)) (dest "DOPNEW:c") (newname "DOpusRT5"))
  71.         (copyfiles (source (cat "PCH:diskinfo." #EXT)) (dest "DOPNEW:modules") (newname "diskinfo.module"))
  72.         (copyfiles (source (cat "PCH:update." #EXT)) (dest "DOPNEW:modules") (newname "update.module"))
  73. )
  74.  
  75.  
  76. (procedure wrong_version
  77.  
  78.     (message #Title_msg
  79.         "Sorry, you have the wrong version of DirectoryOpus.\n\n"
  80.         "This upgrade will NOT WORK for your version.\n"
  81.  
  82.         #README
  83.  
  84.         "Your Opus version is "#dop_ver"."#dop_rev".\n"
  85.         "and the library is "#lib_ver"."#lib_rev"\n")
  86.  
  87.     (exit "Installation terminated!")
  88.  
  89. )
  90.  
  91. (procedure anyone_home
  92.  
  93.     (message #Title_msg
  94.         "Sorry, cannot find DirectoryOpus on you system!\n\n"
  95.         #README)
  96.         
  97.     (exit "Installation terminated!")
  98.  
  99. )
  100.  
  101. (procedure wrong_dopus
  102.  
  103.         
  104.     (message #Title_msg
  105.         "Sorry, you have the wrong version of DirectoryOpus.\n\n"
  106.         "This upgrade will NOT WORK for your version.\n\n"
  107.  
  108.         #README
  109.  
  110.         "Your Opus version is "#dop_ver"."#dop_rev".\n")
  111.  
  112.     (exit "Instalation terminated!")
  113. )
  114.  
  115.  
  116. (procedure get_ext
  117. ; work out which library version, should be enough
  118. ; 
  119.  
  120.     (set #lib_ver 0)
  121.  
  122.     (if (exists #DOPUSLIB (noreq))
  123.         (
  124.         (set #Vernum (getversion #DOPUSLIB))
  125.         (set #lib_ver (/ #Vernum 65536))
  126.         (set #lib_rev (- #Vernum (* #lib_ver 65536) ) )
  127.     
  128.         (if    (AND (= #lib_ver 60 ) (= #lib_rev 1 ))
  129.             (
  130.             (set #EXT "pch60")
  131.             (set #PATCHNAME "Opus6062Patch.lha")
  132.             )
  133.             (; else
  134.             (if    (AND (= #lib_ver 61 ) (= #lib_rev 1 ))
  135.                 (
  136.                 (set #EXT "pch61")
  137.                 (set #PATCHNAME "Opus6162Patch.lha")
  138.                 )
  139.             )
  140.             )
  141.         )
  142.         )
  143.         (anyone_home)
  144.         
  145.     )
  146.  
  147.     (if    (= #lib_ver 0)
  148.         (wrong_version)
  149.     )
  150. )
  151.  
  152. ;
  153. ; start
  154. ;
  155.  
  156. (
  157. (onerror clear_assigns)
  158.  
  159.  
  160. (set #OLD_OPUS "DOpus5:")
  161. (set #FINAL "DOpus5:")
  162. (set @default-dest #FINAL)
  163.  
  164. (set #NEW_OPUS "ram:OP562")
  165. (set #PCH_TMP "ram:OPPCHTMP")
  166. (set #SRC "ram:PCH56x")
  167. (set #WANTVER 61)
  168.  
  169. (set #DOPUSPROG (tackon #OLD_OPUS "DirectoryOpus"))
  170. (set #DOPUSLIB (tackon #OLD_OPUS "libs/dopus5.library"))
  171.  
  172. (set #README "Please read the ReadMe acompanying this archive or contact GPSoftware for details of upgrades\n\n")
  173.  
  174. (clear_assigns)
  175. (signal_opus)
  176.  
  177.  
  178. (makeassign "DOPOLD" #OLD_OPUS)
  179. (makedir #NEW_OPUS)
  180.  
  181. (makeassign "DOPNEW"  #NEW_OPUS)
  182. (makedir "DOPNEW:modules")
  183.  
  184. (makedir "DOPNEW:c")
  185. (makedir "DOPNEW:help")
  186. (makedir "DOPNEW:libs")
  187.  
  188. (makedir #PCH_TMP)
  189. (makeassign "PCH" #PCH_TMP)
  190.  
  191.  
  192. ; main procedure
  193.  
  194.  
  195.     (set #Title_msg "Directory Opus Magellan Update Patch.\n\n")
  196.  
  197.     (message #Title_msg
  198.         "This procedure will update your existing version of"
  199.         " Directory Opus Magellan 5.6x to version  5.62.\n\n"
  200.         "When finished, you will need to reboot your Amiga."
  201.         )
  202.  
  203.     (if (exists #DOPUSPROG (noreq))
  204.         (
  205.         (set #Vernum (getversion #DOPUSPROG))
  206.         (set #Dop_ver (/ #Vernum 65536))
  207.         (set #Dop_rev (- #Vernum (* #Dop_ver 65536) ) )
  208.         );else
  209.         (anyone_home)
  210.     )
  211.  
  212.  
  213.     (if    (AND (= #dop_ver 5 ) (= #dop_rev #WANTVER ))
  214.         (get_ext)
  215.         (wrong_dopus) ;else
  216.  
  217.     )
  218.  
  219.     (if (exists (tackon #SRC #PATCHNAME))
  220.         (
  221.         (working "Unarchiving patch files...")
  222.         (run (cat (tackon #SRC "lhex") " >NIL: <NIL: -qfw=PCH: x " (tackon #SRC #PATCHNAME)))
  223.  
  224.         (make_newfiles)
  225.     
  226.         (copyfiles (source "DOPNEW:") (dest #FINAL) (all) (optional force))
  227.         (copyfiles (source (tackon #SRC "ReadMe_Magellan562")) (dest #FINAL) (infos))
  228.  
  229.     
  230.         ;
  231.         ; tidyup
  232.         ;
  233.  
  234.         (clear_assigns)
  235.         (run (cat "C:Delete " #PCH_TMP " all"))
  236.         (run (cat "C:Delete " #NEW_OPUS " all"))
  237.     
  238.         ; make sure update module is re-initialised
  239.     
  240.         (run "C:Delete DOpus5:system/update-history FORCE")
  241.         
  242.  
  243.         ); else
  244.         (message #Title_msg
  245.             "Woops! Cannot find the patch archive\n"
  246.              "Required archive: "#PATCHNAME".\n\n"
  247.         )
  248.         
  249.     )
  250.  
  251. (clear_assigns)
  252. )
  253.